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9001 ¢ | 
PONS : Version: *v04-000' | 
Bone aig paeaee » 9 ui par cee is inca alates ag eileen aie oe an aR re | 
® ! 
pone C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
pos Fs ALL RIGHTS RESERVED. * 
® 
10 C* THIS SOFTWARE as FURNISHED UNDER A LICENSE AND MAY BE USED AND copied © 
11 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bicen SE AND WITH THE * 
bog C* INCLUSION OF THE ABOVE copy iene NOTICE. THIS SOFTWARE OR ANY OTHER * 
01 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bet? ‘ TRANSFERRED. * 
® 
0017 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
id s CORPORATION. * 
* ® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
BOS¢ - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
* 
0094 Cs ‘ | 
00 5 CR Ree eR RARE EEE RAEAERERE AREER REAR AAE AAAS 
0026 C 
0027 | 
44 C Author Brian Porter Creation Date 01-SEP-1981 | 
0050 c++ : | 
itd c Functional description: | 
c 
0038 ¢ This module displays the CRB lLongword VECSL_MAPREG. | 
C 
0035 C Modified by: 
0036 ¢ | 
0037 C V03-002 SARO193 Sharon A. Reynolds, 20-Feb-1984 
0038 C Added an SYE update that verifies that there is mapping 
4 ; information to be translated. 
0041 C V03-001 SAR0108 Sharon A. Reynolds, 20-Jun-1983 
Bneg C Changed the carriage control in the ‘format’ statements 
Bez : for use with ERF. 
bods c v02-001 BP0001 Brian Porter, 05-NOV-1981 
goee C Added direct datapath filter. 
004 cre 
0048 c= 
0049 
0050 
0051 
Boas ; 
O07 subroutine vecmapreg (lun,vec$l_mapreg) 
0055 
B238 
57 byte lun 


VECMAPREG 1 sep-1984 00:31: :15.  VAX-11_ FORTRAN 354 4-56 2. 
~8ep-1986 14:35:58  DISKSVMSMASTER:CERFSRCIVECMAPREG.FORTT? * 
0089 tntegeres $1 
nteger* ec$l_mapre 

0060 ° Shade 
Bye! integer*4 field 
006 integer*4 4 
BRe7 9 compress | 
0065 character*31 vec$v_maplock (15:15) 
joe? dat vec$v_maplock(15) | 
S908 1 / prs) PERMANENTLY ALLOCATED®'/ 
Bry character*23 vec$v_lwae(29:29) | 

7 dat vec$v_ lwae(29) 
9073 1°7*LONGWORD ACCESS ERABLE®*/ 
hd character*28 vec$v_pathlock (31:31) 
0077 dat ec$v_pathlock (31) | 
0078 1 7 pp" PERMANENTLY~ ALLOCATED*'/ 
0079 
0080 
0081 
O08 call Linchk (lun,4) 
0084 write(lun,75) "MAPPING ALLOCATION INFORMATION’ | 
Shee 75 format(/' ‘,a) 
0087 write(lun,80) "VEC$L Pere” .vecdt _mapreg | 
bose 80 format(/' ',t8,a,t24,28.8) 
3099 If (vec$l_mapreg .NE. 0) then 
a4 field = LibSextzv(0,15,vec$l_mapreg) 
Boge call Linchk (lun,1) 
0096 write(lun,85) **MPR'' #" ,field,'. STARTING MAP REGISTER’ 
iad 85 format(' ,t40,a, i<compress4 (tield)>,a) | 
st call output (lun,vec$l_mapreg,vec$v_maplock,15,15,15,'0") 
9101 field = LibSextzv(16,8,vec$l_mapreg) | 
0108 call Linchk (Llun,1) 
0105 write(tun,90) field,". MAP REGISTER(S) ALLOCATED! | 
at] 90 format ( -t40,i<compress4 (field)>,a) | 
3108 field = LibSextzv(24,5,vec$l_mapreg) | 
gig call Linchk (lun,1) 
Oti¢ if (field .ne. 0) then 
0114 write(lun,95) "DATAPATH #',field,". ALLOCATED’ 


VECHAPREG if sen-198 92:35:58 DESkSumsmasten: LER 


95 format(' ',t40,a,i<compress4 (field)>,a) 
else 


write(lun,100) "DIRECT DATAPATH' 
100 format(' *,t40,a) 
endif 
call output (Lun,vec$l_mapreg,vec$v_lwae,29,29,29,'0') 


Eo\) Soto (Lun, vec$l_mapreg,vec$v_pathlock,31,31,31,'0") 
n 


return 


DONAUNLS WN "OOONOM 


end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 508 PIC CON REL LCL SHR EXE 
1 SPDATA 244 PIC CON REL LCL SHR NOEXE 
2 $SLOCAL 432 PIC CON REL LCL NOSHR NOEXE 
Total Space Allocated 1184 


ENTRY POINTS 
Address Type Name 
0-00000000 VECMAPREG 


VARIABLES 


Address Type Name Address Type Name Address 


2-00000054 I*4 FIELD AP-00000004@ L*1 LUN 


ARRAYS 
Address Type Name Bytes Dimensions 
2-0000001F CHAR VECS$V_LWAE 3 


(29:29) 
2-00000000 CHAR VEC$V_MAPLOCK 1 (15:15) 
2-00000036 CHAR VEC$V_PATHLOCK 28 (31:31) 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 


Type Name 


AP-00000008@ I1*4 VECS$L_MAPREG 
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LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
1-000000B81 75° 1-00000087 80' 1-000000C4 85° 1-000000D2 90' 1-000000DF 95° 1-000000ED 100° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
I1*4 COMPRESS4 I*4 LIBSEXTZV LINCHK OUTPUT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:VECMAPREG/OBJ=0BJ$:VECMAPREG MSRC$:VECMAPREG 
/ CHE CK=(NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOLS$, TRACE 
/F77 /NOG_FLOATING /14 FOPTIMIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 1.87 seconds 
Elapsed Time: 7.43 seconds 
Page Faults: 101 
Dynamic Memory: 170 
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